home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-02_1989_-_de_Side_B.d64 / interr. uhrzeit (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  79 lines
  1. 100 rem"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  2. 101 [143]"(NULL)ortantantantantan<cia-hardwareuhr-tantantantantan^(NULL)
  3. 102 rem"[221][221]                           [221][221]
  4. 103 [143]"(NULL)(NULL)written 1985 by i. gaffling(NULL)(NULL)
  5. 104 rem"[221][221]                           [221][221]
  6. 105 [143]"(NULL)(NULL)(c) all rights reserved !?!(NULL)(NULL)
  7. 106 rem"[221][221]                           [221][221]
  8. 107 [143]"(NULL)/tantantantantantantantantantantantantantantantantantantantantantantantantantantanexp(NULL)
  9. 108 rem"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  10. 120 [143]---------variablen initialisieren
  11. 122 [151]53280,8:[151]53281,8:[153]""
  12. 130 ad[178]49152: sa[178]ad[170]23: ah[178][181](sa[173]256)
  13. 150 al[178](sa[173]256[171]ah)[172]256
  14. 155 [143]-------------------datas einlesen
  15. 156 [153]"load  please wait...
  16. 160 for i=0 to 149
  17. 170 :::read b
  18. 180 :::c=c+b
  19. 190 :::pokead+i,b
  20. 200 next i
  21. 230 rem----pointer fuer maschinensprache           setzen
  22. 231 :
  23. 240 poke252,al
  24. 250 poke253,ah
  25. 255 rem--------------------schrift farbe
  26. 280 farbe=0
  27. 290 poke251,farbe
  28. 300 input"[147]  zeit im format hhmmss ";t$
  29. 301 :
  30. 310 se=val(right$(t$,1)):rem------------    einerstellen sekunden
  31. 320 sz=val(mid$(t$,5,1)):rem------------    zehnerstellen sekunden
  32. 330 me=val(mid$(t$,4,1)):rem------------    minuten einerstellen
  33. 340 mz=val(mid$(t$,3,1)):rem------------    minuten zehnerstellen
  34. 350 he=val(mid$(t$,2,1)):rem------------    stunden einerstellen
  35. 360 hz=val(left$(t$,1)) :rem------------    stunden zehnerstellen
  36. 370 :
  37. 380 ss=16*sz+se:rem---sekunden zusammen-                      setzen
  38. 390 mm=16*mz+me:rem----minuten zusammen-                       setzen
  39. 400 q=val(t$):rem----------hilfsvariable
  40. 410 ifq>125959thenhh=128:hz=hz-1:he=he-2   :rem----------------pruefen auf am/pm
  41. 411 :
  42. 420 hh=hh+16*hz+he:rem-stunden zusammen-                       setzen
  43. 430 :
  44. 440 ba=56576:rem--basicadresse von cia#2
  45. 450 rem------------flag fuer 50hz setzen
  46. 460 fl=peek(ba+14):pokeba+14,fl or 128
  47. 470 crb=peek(ba+15):rem----controlreg. a
  48. 475 rem-------------------bit 7 loeschen
  49. 480 pokeba+15,crb and 127
  50. 490 pokeba+11,hh
  51. 500 pokeba+10,mm
  52. 510 pokeba+9,ss
  53. 520 pokeba+8,0:rem-zehntelsek. schreiben                   um uhr freizugeben---
  54. 530 :
  55. 540 sys ad :::print"[147]":end
  56. 550 :
  57. 555 rem------datas fuer maschinensprache
  58. 560 data 120,174,020,003,172,021,003,165,252
  59. 570 data 141,020,003,165,253,141,021,003,134
  60. 580 data 252,132,253,088,096,173,014,221
  61. 590 data 009,128,141,014,221,160,007,165,251
  62. 600 data 153,032,216,136,016,250,169,000,133
  63. 610 data 254,173,011,221,072,041,128,170,104
  64. 620 data 041,063,224,000,240,007,201,018,240,003
  65. 630 data 024,105,018,168
  66. 640 data 074,074,074,074,024,105,048,141,032,004
  67. 650 data 152,041,015,024,105,048,141,033,004
  68. 660 data 169,058,141,034,004,173,010,221,074
  69. 670 data 074,074,074,024,105,048,141,035,004
  70. 680 data 173,010,221,041,015,024,105,048,141
  71. 690 data 036,004,169,058,141,037,004,173,009
  72. 700 data 221,074,074,074,074,024,105,048,141
  73. 710 data 038,004,173,009,221,041,015,024,105,048
  74. 720 data 141,039,004,173,008,221,108,252,000
  75. 730 :
  76. 740 :
  77. 750 :
  78. 800 written 1985 by i(NULL)r [ independent ]
  79.